REPORT 7ІМРОВТІМС ЕХРОВТІМС. 
DATA : ST ТҮРЕ STRING VALUE 'vikas SHRIvastAVA', RES ТУРЕ string. 


DATA O1 TYPE REF TO ZSTRING_OPERATIONS. 
CREATE OBJECT O1. 


*CALL METHOD O1->TO_UPPER 
EXPORTING 

ж STRI =5Т 

* IMPORTING 
ж 
ж 


% 


STR2 = RES 


" OR CALL DIRECTLY .... 


0O1->TO_UPPER( EXPORTING STR1 = ST IMPORTING STR2 = RES). 
WRITE RES. 


a А = + + 
р ЧАН 

DATA 5ТІЕМ ТУРЕ І. 

ЖСАЦ. METHOD О1->СЕТ _тЕМСТН 

ж EXPORTING 

* STR =ST 


* RECEIVING 
ж LEN = STLEN 


ж 
"ОВ 
STLEN = О1->СЕТ ІЕМСТН( STR =5Т). 


WRITE / 5ТІ ЕМ. 


ее ыы ыы + + 


а а 


ST = 'НІ/ НЕШО / HOW /hi.// АВЕ / YOU / РОрЕ. ". 


ЖСАЦ. METHOD О1->СОМОЕМЅЕ ТА 
ж СНАМСІМС 
ж STR -5Т 


ж 


"ОВ 


01->СОМОЕМ$Е_$ТВ( CHANGING STR = ST). 


WRITE / ST. 
WRITE /. 


a А = + 


Е ааа 


DATA : 51 ТҮРЕ STRING, 52 ТҮРЕ STRING,S3 ТҮРЕ STRING, 54 ТҮРЕ STRING. 


ЖСАЦ. METHOD O1->SPLIT_STR 


* EXPORTING 

ж МАІМ 5ТЕ = ST 
ж IMPORTING 

ж 5ТА1 =51 

ж 5782 = 52 

ж 5783 -53 

ж 5784 = 54 

ж 


01->5РИТ_$ТВ( EXPORTING МАІМ 5ТК = ST IMPORTING $ТВ1 = 51 5782 = 52 
ЅТАЗ = 53 STR4 = 54). 

WRITE : / АҒТЕК SPLIT :', / "51 = ', 51 COLOR 7, /, '52 =', 52 COLOR 3, /, '53 =', 
53 COLOR 4, /, '54 = ', 54 COLOR 5. 


ее > + + 


они 


ЖСАЦ. METHOD О1->СОМСАТ_$ТВ 


ж ЕХРОВТІМС 
ж STRI ==51 
ж STR2 = 52 
ж 5ТЕЗ = 53 
ж STR4 = 54 
ж IMPORTING 
ж МАІМ 5ТК = st 
ж 
"ог 


01->сопсаї $( EXPORTING $1 = 51 5172 = 52 53 = 53 514 = 54 IMPORTING 
main_str = st ). 


ЅКІР 2. 

WRITE : 'АКег concatenating' COLOR 1. 
ЅКІР 1. 

write :/ st. 


DATA : old type string VALUE 'hi', new TYPE string VALUE 'hello'. 


ЖСАЦ. METHOD О1->КЕРЕАСЕ_$ТВ 
ж ЕХРОВТІМС 

ж ОЮ 5ТЕ = old 

ж МЕМ/ 5ТВ = new 

ж СНАМСІМС 

ж МАІМ ТА = st 

ж 

01->геріасе сіг( EXPORTING old_str = old пем г = пем CHANGING тат_5 = 
st ). 


skip 2. 


write :/ 'after concatenation ', /, st COLOR 2. 


